home *** CD-ROM | disk | FTP | other *** search
/ Animation How-To / Animation How-to CD.iso / PLY / CHAPTER7 / ASTEROID / ASTEROID.PI next >
Text File  |  1994-01-01  |  1KB  |  63 lines
  1. // interior blob reflection
  2. // jeff bowermaster 10/21/93
  3.  
  4. include "\ply\colors.inc"
  5.  
  6. include "anim"
  7.  
  8. viewpoint {
  9.    from < frx, fry, frz >
  10.    at   < atx, aty, atz >
  11.    up   < upx, upy, upz >
  12.    angle 50
  13.    resolution 160,120
  14.    aspect 1.433
  15.    }
  16.  
  17. background SkyBlue
  18. //light <1.0,1.0,1.0>,<5,0,0>
  19. light <1.0,1.0,1.0>,<0,10,0>
  20. light <1.0,1.0,1.0>,<0,0,10>
  21.  
  22. light <1.0,1.0,1.0>,<-10,0,0>
  23. light <1.0,1.0,1.0>,<0,-10,0>
  24. light <1.0,1.0,1.0>,<0,0,-10>
  25.  
  26. define asteroid
  27. object {
  28.    blob 6.6:
  29.       7, 3.0,<  0,  0,  0 >,
  30.       3, 1.0,<  1,  1,  1 >,
  31.       3, 1.0,< -1,  1,  1 >,
  32.       3, 1.0,<  1, -1,  1 >,
  33.       3, 1.0,< -1, -1,  1 >,
  34.       3, 1.0,<  1,  1, -1 >,
  35.       3, 1.0,< -1,  1, -1 >,
  36.       3, 1.0,<  1, -1, -1 >,
  37.       3, 1.0,< -1, -1, -1 >,
  38.       3, 1.0,<  0,  1,  1 >,
  39.       3, 1.0,<  0,  1, -1 >,
  40.       3, 1.0,<  0, -1,  1 >,
  41.       3, 1.0,<  0, -1, -1 >,
  42.       3, 1.0,<  1,  0,  1 >,
  43.       3, 1.0,<  1,  0, -1 >,
  44.       3, 1.0,< -1,  0,  1 >,
  45.       3, 1.0,< -1,  0, -1 >,
  46.       3, 1.0,<  1,  1,  0 >,
  47.       3, 1.0,<  1, -1,  0 >,
  48.       3, 1.0,< -1,  1,  0 >,
  49.       3, 1.0,< -1, -1,  0 >
  50.    root_solver Sturm
  51.    u_steps 20
  52.    v_steps 20
  53.    shiny_coral
  54.    }
  55.  
  56. asteroid
  57.  
  58.  
  59. asteroid
  60. {
  61.    translate <8,0,0>
  62. }
  63.